home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / tip / boxing7.tip < prev    next >
Text File  |  1993-09-15  |  3KB  |  114 lines

  1. % This macro source file is from the four volume series
  2. % "TeX in Practice" by Stephan von Bechtolsheim, published
  3. % 1993 by Springer-Verlag, New York.
  4. % Copyright 1993 Stephan von Bechtolsheim.
  5. % No warranty or liability is assumed.
  6. % This macro may be copied freely if no fees other than
  7. % media cost or shipping charges are charged and as long
  8. % as this copyright and the following source code itself
  9. % is not changed. Please see the series for further information.
  10. %
  11. % Version: 1.0
  12. % Date: May 1, 1993
  13. %
  14. %
  15. % This source code is documented in 9.3.9.1, p. I-335.
  16. % Original source in file "boxit.TEX", starting line 1131.
  17. \wlog{L: "boxing7.tip" ["boxit.TEX," l. 1131, p. I-335]}%
  18. % This file DOES belong to format "texip."
  19. \InputD{boxing6.tip}
  20. \InputD{vcentx.tip}
  21. \catcode`\@ = 11
  22. \newdimen\@BoxRDimen
  23. \newbox\@BoxRBox
  24. \newcount\@BoxRNumber
  25. \def\HboxR{%
  26.     \hbox\bgroup
  27.     \def\@WhichBox{\hbox}%
  28.     \def\@WhichBoxDimen{}%
  29.     \@BoxRaa
  30. }
  31. \def\VboxR{%
  32.     \vbox\bgroup
  33.     \def\@WhichBox{\vbox}%
  34.     \def\@WhichBoxDimen{}%
  35.     \@BoxRaa
  36. }
  37. \def\VtopR{%
  38.     \vtop\bgroup
  39.     \def\@WhichBox{\vtop}%
  40.     \def\@WhichBoxDimen{}%
  41.     \@BoxRaa
  42. }
  43. \def\VcenterXR{%
  44.     \hbox\bgroup
  45.     \def\@WhichBox{\VcenterX}%
  46.     \def\@WhichBoxDimen{}%
  47.     \@BoxRaa
  48. }
  49. \def\BoxR{%
  50.     \hbox\bgroup
  51.     \def\@WhichBox{\hbox}%
  52.     \def\@WhichBoxDimen{}%
  53.     \afterassignment\@BoxRB
  54.     \@BoxRNumber =
  55. }
  56. \def\@BoxRB{%
  57.     \HboxR{\box\@BoxRNumber}% 
  58.     \egroup
  59. }
  60. \def\CopyR{%
  61.     \hbox\bgroup
  62.     \def\@WhichBox{\hbox}%
  63.     \def\@WhichBoxDimen{}%
  64.     \afterassignment\@CopyRbb
  65.     \@BoxRNumber =
  66. }
  67. \def\@CopyRbb{%
  68.     \HboxR{\copy\@BoxRNumber}% 
  69.     \egroup
  70. }
  71. \def\@BoxRaa{% 
  72.     \futurelet\@BoxRSymbol\@BoxRA
  73. }
  74. \def\@BoxRA{%
  75.     \ifx\@BoxRSymbol\bgroup
  76.         \let\@BoxitNext = \@BoxRb
  77.     \else
  78.         \if\@BoxRSymbol t% 
  79.             \let\@BoxitNext = \@BoxRbTo
  80.         \else
  81.             \let\@BoxitNext = \@BoxRbSpread
  82.         \fi
  83.     \fi
  84.     \@BoxitNext
  85. }
  86. \def\@BoxRb{%
  87.     \afterassignment\@BoxRbTwo
  88.     \let\@BoxDrop =
  89. }
  90. \def\@BoxRbTwo{% 
  91.     \setbox\@BoxRBox = \expandafter\@WhichBox\@WhichBoxDimen\bgroup
  92.     \aftergroup\@BoxRbThree
  93. }
  94. \def\@BoxRbThree{% 
  95.     \BoxingE{\box\@BoxRBox}% 
  96.     \egroup
  97. }
  98. \def\@BoxRbTo to{%
  99.     \def\@WhichBoxDimen{to}% 
  100.     \afterassignment\@BoxRbMoreSpreadTo
  101.     \@BoxRDimen =
  102. }
  103. \def\@BoxRbSpread spread{%
  104.     \def\@WhichBoxDimen{spread}%
  105.     \afterassignment\@BoxRbMoreSpreadTo
  106.     \@BoxRDimen =
  107. }
  108. \def\@BoxRbMoreSpreadTo{%
  109.     \edef\@WhichBoxDimen{\@WhichBoxDimen \the\@BoxRDimen}% 
  110.     \afterassignment\@BoxRbTwo
  111.     \let\@BoxDrop =
  112. }
  113. \catcode`\@ = 12
  114.